﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class ResultadoBL
    'Instanciamos la clase ResultadoDAO
    Dim resultado As New ResultadoDAO

    Public Function ListarPreguntasxEncuesta(ByVal objeto As BE.ResultadoBE) As DataSet
        Return resultado.ListarPreguntasxEncuesta(objeto)
    End Function

    Public Function ListarOpcionesxPreguntayEncuesta(ByVal objeto As BE.ResultadoBE) As DataSet
        Return resultado.ListarOpcionesxPreguntayEncuesta(objeto)
    End Function


    Public Function Votar(ByVal objeto As BE.ResultadoBE) As Boolean
        Return resultado.Votar(objeto)
    End Function

    Public Function ArmarEncuesta(ByVal objeto As BE.ResultadoBE) As Boolean
        Return resultado.ArmarEncuesta(objeto)
    End Function

    Public Function Resultados(ByVal objeto As BE.ResultadoBE) As DataSet
        Return resultado.Resultados(objeto)
    End Function


    Public Function ChapaError() As String
        Return resultado.ChapaError
    End Function

End Class
